print TO_ABS "-x newComposition -X -3 -Y -3.5 -w 16 -h 14 \n";

for ($iy = 0; $iy < 3; $iy++) {
    $y1 = -1+$iy;
    $y2 =   4+$iy;
    print TO_ABS "-x setYRange -s $y1 -e $y2 \n";  # set y axis range
    if ($iy==0) {
        print TO_ABS "-x setAxis -a 1 -kN\n";      # turn on x axis numbering
    }
    else {
        print TO_ABS "-x setAxis -a 1 -kY\n";      # turn off x axis numbering
    }
    for ($ix = 0; $ix < 3; $ix++) {
        $x1 = 10+$ix;
        $x2 = 16+$ix;
        if ($ix==0) {
            print TO_ABS "-x setAxis -a 2 -kN\n";      # turn on y axis numbering
        }
        else {
            print TO_ABS "-x setAxis -a 2 -kY\n";      # turn off y axis numbering
        }
        print TO_ABS "-x setXRange -s $x1 -e $x2 \n";
        $xPos = 4.8* $ix;
        $yPos = 3.8* $iy;
        $angle = 10*($iy+$ix);
        print TO_ABS "-x addPDFtoComposition -X $xPos -Y $yPos -a $angle \n";
    }
}
print TO_ABS "-x savePDFofComposition -f /tmp/xx.pdf \n";
